COMMENT ⊗ VALID 00002 PAGES C REC PAGE DESCRIPTION C00001 00001 C00002 00002 TITLE UUO C00003 ENDMK C⊗; TITLE UUO A←←1 B←←2 C←←3 D←←4 OPDEF OP1[1B8] OPDEF OP2[2B8] OPDEF OP3[3B8] OPDEF OP4[4B8] SA: MOVE [JSR XUUO]↔MOVEM 41 OP1 A,A1 OP2 B,B1 OP3 C,C1 OP4 D,D1 EXIT XUUO: 0 MOVE 40↔MOVEM TMP40# MOVE 41↔MOVEM TMP41# JRST @XUUO INTEGER A1,B1,C1,D1 END SA